
extern "C" { 

#include <stdio.h>

#include <caml/mlvalues.h>
#include <caml/memory.h>
#include <caml/alloc.h>
#include <caml/custom.h>

}

#include <zmq.hpp>

extern "C"
value mod_create(value host) {
    CAMLparam1 (host);
    fprintf(stderr, "create %s\n", String_val(host));
    CAMLreturn (Val_unit);
}

extern "C"
value mod_destroy(value unit) {
    CAMLparam1 (unit);
    fprintf(stderr, "destroy\n");
    CAMLreturn (Val_unit);
}

/* --- */
